Public Class TradingSession
    Public OpenHourGMT As Date
    Public CloseHourGMT As Date
    Public Name As ETradingSessionsName
    Enum ETradingSessionsName
        Sydney
        Tokyo
        Europe
        London
        New_York
    End Enum
    Public ReadOnly Property OpenHourUSEast() As Date
        Get
            Return OpenHourGMT.AddHours(-5)
        End Get
    End Property
    Public ReadOnly Property CloseHourUSEast() As Date
        Get
            Return CloseHourGMT.AddHours(-5)
        End Get
    End Property
    Public ReadOnly Property SessionLenghtInHours() As Double
        Get
            Return (CloseHourGMT - OpenHourGMT).TotalHours
        End Get
    End Property
    Sub New(ByVal name As ETradingSessionsName, ByVal OpenHourGTM As Date, ByVal CloseHourGTM As Date)
        Me.Name = name
        Me.OpenHourGMT = OpenHourGTM
        Me.CloseHourGMT = CloseHourGTM
    End Sub
End Class
